delimiters ();
proofing:=1;
openwindow 0 from (0,0) to (200,500) at (-40,100);
edges e;
def makechar(expr p) =
 e:=nulledges; addto e contour p; display e on 0; shipout e enddef;
def shiftedright expr x = shifted (x,0) enddef;
tracingonline:=1;
tracingspecs:=1;
tracingedges:=1;
path p; p=(-20,-50)..(-20,50) & (-20,50)..(0,0)..(-20,-50) & cycle;
pausing:=1;stop;
makechar(p shiftedright .501);
epsilon=1/256/256; makechar(p shiftedright 1/2+epsilon);
end